home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / エクスプレス住所録2.5 folde.sit / エクスプレス住所録2.5 folder / エクスプレス住所録2.5-1 / スタック管理 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1995-09-02  |  14KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2718</cardID>
  8.     <listID>2088</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-------------------------------------------------------------------HyperCard Home StackVersion J1-2.2Copyright 1987-1991,1993-1994 by Apple Computer, Inc.All Rights Reserved.THE MESSAGE HANDLERS USED IN THIS SCRIPT:startUp,getHomeInfo,resume,help,hyperTalknav,c,b,s,mw,vw,se,ss,xy,disallowInterruption,allowInterruptionsetUserLevelFive,restoreUserLevel,searchScript,checkForMissingFonts,getStackVersion,getStackNameTHE FUNCTION HANDLERS USED IN THIS SCRIPT:lastHCItem,checkHCFontXCMD'S USED BY THIS SCRIPT:FontExists XFCNForm: FontExists(<font name>,<point size>)It returns TRUE if the font/point size is installed or FALSE if not.------------------------------------------------------------------------  Startup/Resume Scripts:  ---------------------------------------------on startUp-- Requires handler: getHomeInfo,checkForMissingFonts-- gets and sets the user's preferencescheckForMissingFontsgetHomeInfo-- audio Palette startupif there is a stack "Audio Help" then -- 竏†start using stack "Audio Help" -- 竏†send "startSound" to stack "Audio Help" -- 竏†end ifpass startUp -- so others can use itend startUpon getHomeInfo-- Needs: User preferences card of the home stack-- configures HyperCard to the user specified preferencesglobal Stacks,Applications,Documents,UserNameif short name of this stack is not "Home" then -- 竏†lock screenset lockRecent to TRUEset lockMessages to TRUEpush this card -- remember where we arego home -- will take us to the home stack in case we're not thereput FALSE into stackIsHomeelse put TRUE into stackIsHomeput (cd fld "User Name" of cd "User Preferences") into UserNameset the userLevel to cd fld "User Level" of cd "User Preferences" -- hidden fieldset the powerKeys to hilite of cd btn id 3 of cd "User Preferences" -- Power Keysset the textArrows to hilite of cd btn id 2 of cd "User Preferences" -- Arrow keys in textset the blindTyping to hilite of cd btn id 1 of cd "User Preferences" -- Blind Typing-- load the search path globalsput bg fld "Paths" of cd "Stacks" of bg "Paths" into Stacksput bg fld "Paths" of cd "Applications" of bg "Paths" into Applicationsput bg fld "Paths" of cd "Documents" of bg "Paths" into Documentsif not stackIsHome thenpop card -- return to where we wereset lockRecent to FALSE -- clean up for exitset lockMessages to FALSEunlock screenend ifend getHomeInfoon resume-- Requires handler: getHomeInfo-- gets and sets user preferences upon returninggetHomeInfopass resume -- so others can use itend resume-----  Help Scripts:  --------------------------------------------on help theTopic-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "help <topic>" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ駅ﾃ嘉｣ﾃ益ﾃ厩ﾃ運ﾃ叡ﾃ丑 (HyperCard Help) ﾃ‡ﾃƒ <topic> ﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ 竅„ﾃｬﾃ†ﾃ‡竏妥‡ﾃ暗③put "HyperCard Help" into theStack -- 竏†if ":" & theStack & RETURN is in the stacks thenif the longWindowTitlesthen show window line (the number of lines of char 1 to offset(":" & theStack & RETURN, the stacks) of the stacks) of the stackselse show window theStackelsego to stack theStack in a new window -- try in a new windowif the result = "Cancel" then exit to hyperCardelse if the result is not empty then go to stack theStackend ifif the result is empty then findInTitle theTopic -- in the help stackend helpon hyperTalk theTopic-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "hyperTalk <topic>" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- HyperTalk ﾃ嘉､ﾃ液ﾃ院ﾃ嘉･ﾃ嘉ｬﾃ厩ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃƒ <topic> ﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡窶ｦﾃ 竅„ﾃｬﾃ†ﾃ‡竏妥‡ﾃ暗③put "HyperTalk Reference" into theStackif ":" & theStack & RETURN is in the stacks thenif the longWindowTitlesthen show window line (the number of lines of char 1 to offset(":" & theStack & RETURN, the stacks) of the stacks) of the stackselse show window theStackelsego to stack theStack in a new window -- try in a new windowif the result = "Cancel" then exit to hyperCardelse if the result is not empty then go to stack theStackend ifif the result is empty then findInTitle theTopic -- in the help stackend hyperTalk-----  Utility Scripts:  --------------------------------------------on nav-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "nav" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ永ﾃ詠ﾃ渦ﾃ…[ﾃ運ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃ‡邃｢ﾃｩgﾃ‡ﾂｶﾃ‡ﾃ暗③-- Requires XCMD: palette "Navigator"palette "Navigator"end navon c-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "c" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ雨ﾃ…[ﾃ栄ﾃｨﾃ禿ｯﾃ津雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③-- Requires handlers: setUserLevelFive,restoreUserLevelput the tool into saveToolchoose browse toolsetUserLevelFive -- so the menu item will be theredoMenu "Card Info..."restoreUserLevelchoose saveToolend con b-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "b" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ頴ﾃ叡ﾃ丑ﾃ碓ﾃ嘉｢ﾃ右ﾃ嘉ｬﾃ栄ﾃｨﾃ禿ｯﾃ津雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③-- Requires handlers: setUserLevelFive,restoreUserLevelput the tool into saveToolchoose browse toolsetUserLevelFive -- so the menu item will be theredoMenu "Bkgnd Info..."restoreUserLevelchoose saveToolend bon s-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "s" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｨﾃ禿ｯﾃ津雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③-- Requires handlers: setUserLevelFive,restoreUserLevelput the tool into saveToolchoose browse toolsetUserLevelFive -- so the menu item will be theredoMenu "Stack Info..."restoreUserLevelchoose saveToolend son mw-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "mw" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃｯ¥ﾃｩﾂｶﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③-- Requires XWindow: Message Watchershow window "Message Watcher"end mwon vw-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "vw" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃｯﾅ禿ｪﾃｮﾃｯ¥ﾃｩﾂｶﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ③-- Requires XWindow: Variable Watchershow window "Variable Watcher"end vwon se-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "se" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃｪ窶ｺﾃｭﾃ凝‡竕暗‡ﾂｴﾃ‡ﾃ暗③-- Requires XWindow: Script Editorask "ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳" with "Osaka" -- 竏† default valueif the result is "Cancel" or it is empty then exit seset scriptTextFont to itask "ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡ﾃεｯ竏づｩﾃｶﾃ欝ﾃ韻ﾃ浦" with "12" -- 竏† default valueif the result is "Cancel" or it is empty then exit seset scriptTextSize to itend seon ss pattern,stackName-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "ss" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃｫSﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｭﾃ愿‡ﾃεｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗③-- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃｯ窶愿ｨWﾃ‡邃｢ﾃ､Jﾃ‡竕 ﾃ‡ﾃε‡竕暗②ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃ‡ﾃƒ-- ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ‡竕暗･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗③-- ﾃｮﾂｺﾃ､pﾃ‡ﾃε雨ﾃ運ﾃ雨ﾃ永ﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②ﾃｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡邃｢-- ﾃ､Jﾃ‡ﾂｩﾃ‡ﾃ催‡ﾃ暗‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ暗‡ﾃε‡竕暗ｭﾃｧﾃ 窶敕‡竏妥‡ﾃ暗③-- ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ‡ï｣ｿﾃｩgﾃ‡ﾂｧﾃｩﾃｻﾃ②ﾃｫOﾃ･窶榲‡邃｢ SPACE ﾃ‡窶š RETURN ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ’-- ﾃ｣ﾃ甘ｪﾃｿﾃ‡ﾃﾃ‡ﾃ催‡ﾎｩﾃｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｭTﾃ‡竏妥‡ﾂｻﾃ‡ﾃﾃ…sﾃｯ竏づｩﾃｶﾃｳﾃ津ｫSﾃｫﾃε…tﾃ‡ï｣ｿﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津‡ﾂｮﾃ‡竕 ﾃ③-- ﾃｬﾋ凖ｱ{ﾃ･ﾃ催‡ﾃεｯ竏づｨﾃ陛‡ﾃεｳlﾃ‡窶ｦ SPACE ﾃ‡窶ｦﾃ‡ﾃ甘‡ﾂ｡ﾃ‡ﾆ津｣ﾃ甘ｪﾃｿﾃ‡ﾃﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾂ｢-- ﾃｯ竏づｩﾃｶﾃｳﾃ津‡ï｣ｿﾃｭTﾃ‡竏妥‡ﾂｻﾃ‡ﾃﾃ…sﾃｯ竏づｩﾃｶﾃｳﾃ津‡ﾃε ﾃ催ｯﾃｮﾃ…tﾃ‡ï｣ｿﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津‡ﾂｮﾃ‡竕 ﾃ③-- Requires handler: searchScriptsearchScript pattern,stackName -- 竏† type "ss" into message boxend sson xy-- 竏† ﾃｩgﾃ‡ﾂ｢ﾃｯﾋ堙⑹ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ閲ﾃ叡ﾃ丑ﾃ厩ﾃ‡竕ˆ "xy" ﾃ‡竏†ﾃ運ﾃ韻ﾃ益ﾃ‡竏妥‡ﾃ暗‡竏†ﾃ②-- ﾃ厭ﾃ右ﾃ厩ﾃ‡ﾃε ﾂ ﾃｭuﾃ‡ï｣ｿﾃｩﾂｶﾃ‡竏妥③-- ﾃｭﾃ愿ｩ~ﾃ‡竏妥‡ﾃ暗‡窶ｦﾃ‡ﾃ陛②ﾃ厭ﾃ右ﾃ厩ﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡竏妥‡ﾃ暗③set cursor to crossrepeat until the mouseClickput the mouseLoc && "  horz:" & the mouseH && "  vert:" & the mouseV -- 竏†end repeatend xyon disallowInterruption-- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ﾃεｩﾂｿﾃｧsﾃ‡ï｣ｿﾃｭﾃ愿ｭfﾃ‡竕暗‡ﾂｴﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃ‡竏妥‡ﾃ暗③set cantAbort of this stack to TRUEend disallowInterruptionon allowInterruption-- ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ﾃεｩﾂｿﾃｧsﾃ‡ï｣ｿﾃｭﾃ愿ｭfﾃ‡竕暗‡ﾂｴﾃ‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃ‡竏妥‡ﾃ暗③set cantAbort of this stack to FALSEend allowInterruptionon setUserLevelFive -- 竏† ﾃ嘉愿…[ﾃ蔚ﾃ嘉･ﾃ悦ﾃ嘉｣ﾃ‡ï｣ｿﾃ㈵ﾃ‡窶ｦﾃｪ窶ｺﾃｭﾃ凝‡竏妥‡ﾃ暗③global SvLvlput the userLevel into SvLvlset the userLevel to 5end setUserLevelFiveon restoreUserLevel-- 竏† setUserLevelFive ﾃ‡ﾃεｩgﾃｳpﾃ･窶榲‡窶ｦﾃ嘉愿…[ﾃ蔚ﾃ嘉･ﾃ悦ﾃ嘉｣ﾃ‡ï｣ｿﾃ･竕･ﾃ‡窶ｦﾃｱïｬづ‡竏妥③global SvLvlif SvLvl is a number then set the userLevel to SvLvlend restoreUserLevelon searchScript pattern,stackName-- 竏† ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｭﾃ愿‡ﾃε‡竏妥‡笳甘‡ﾆ津‡ﾃε厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡竏妥‡ﾃ暗③-- Requires handlers: setUserLevelFive,restoreUserLevelglobal ScriptFindString -- HyperTalk global variableset lockRecent to TRUEsetUserLevelFive -- saves current level and sets level 5push card -- remember where we areif pattern is empty thenask "ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ’" with ScriptFindString -- 竏†if (it is empty) or (the result is "Cancel") then exit searchScriptput it into pattern -- otherwise use it as the search patternend if-- put in HyperTalk global so just CMD-F in editor for easy findput pattern into ScriptFindStringset lockMessages to TRUE -- avoid open messagesif stackName is not empty then go to stack stackName-- Note: if stackName is empty then we search the current stackset cursor to busy-- search the stack script of the stackif the script of this stack contains patternthen edit script of this stack-- search the background scripts and objects of the stackrepeat with curBkgnd = 1 to the number of bkgndsset cursor to busygo to card 1 of bkgnd curBkgndif the script of this bkgnd contains patternthen edit script of bkgnd curBkgndrepeat with curBgBtn = 1 to the number of bkgnd buttonsset cursor to busyif the script of bkgnd button curBgBtn contains patternthen edit script of bkgnd button curBgBtnend repeatrepeat with curBgField = 1 to the number of bkgnd fieldsset cursor to busyif the script of bkgnd field curBgField contains patternthen edit script of bkgnd field curBgFieldend repeatend repeat-- search the card scripts and objects of the stackrepeat with curCard = 1 to the number of cardsset cursor to busygo card curCardif the script of this card contains patternthen edit script of this cardrepeat with curCdBtn = 1 to the number of card buttonsset cursor to busyif the script of card button curCdBtn contains patternthen edit script of card button curCdBtnend repeatrepeat with curCdFld = 1 to the number of card fieldsset cursor to busyif the script of card field curCdFld contains patternthen edit script of card field curCdFldend repeatend repeatset lockMessages to FALSEset lockRecent to FALSEpop card -- return to where we wererestoreUserLevel -- set userLevel back to whatever it wasanswer "ﾃ‡竏妥‡笳甘‡ﾆ津‡ﾃε厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ‡ï｣ｿﾃ･ﾃｼﾃｧﾄｱﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③" -- 竏†end searchScriptfunction lastHCItem delim,theText-- ﾃｯ竏づｩﾃｶﾃｳﾃ’ theText ﾃ‡ï｣ｿﾃ｣ﾃ甘ｪﾃｿﾃ‡ﾃ凝ｯ竏づｩﾃｶ delim ﾃ‡竕暗｣ﾃ甘ｪﾃｿﾃ‡ﾂ｡ﾃ‡ﾎｩﾃｨﾃ催ｧﾃ｡ﾃ②-- ﾃｧ竕暗･窶榲‡ﾃεｧﾃ„ﾃｱ竅„ﾃ‡窶ｦﾃｫﾃ､ﾃｬﾃｱﾃ‡竏妥‡ﾃ暗ｯﾃｮﾃｯ邃｢ﾃ‡ï｣ｿﾃｯ窶佚‡竏妥③-- ﾃ雲ﾃ疫ﾃ嘉｣ﾃ頴ﾃ韻ﾃ曳ﾃｯ竏づｩﾃｶﾃ‡ï｣ｿﾃ､窶ｹﾃ‡ïｬﾃｯ竏づｩﾃｶﾃｳﾃ津‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ津‡ﾃ陛②-- ﾃ‡ﾂｧﾃ‡窶ｹﾃ‡竕 ﾃｬﾃ†ﾃｧﾃ湘‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ暗③if delim is in theText thenput lastHCItem(delim,char offset(delim,theText) + 1 to ﾂｬ(the number of chars in theText) of theText) into theTextend ifreturn theTextend lastHCItem-----  Font Adjustment Scripts:  ----------------------------------function checkHCFont theFont,pointSizes-- ﾃｩwﾃｭﾃ凝‡竕･ﾃ‡ﾃ催‡ﾎｩﾃ欝ﾃ韻ﾃ浦ﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ System ﾃ‡窶ｦﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾆ’-- ﾃ‡ﾂ｢ﾃ‡ﾃ暗‡ﾂｩﾃｭ竕､ﾃ‡笳甘②ﾃｱ竕･ﾃ‡ﾂ｢ﾃｨﾃ催ｧﾃ｡ﾃ‡ﾃ陛液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ﾃε嘉､ﾃ厩ﾃ曳ﾃ‡ï｣ｿﾃｯ窶佚‡竏妥③-- Requires XFCN: FontExistsput empty into missing-- steps through each point size passed inrepeat with count = 1 to the number of items in pointSizesput item count of pointSizes into theCurrentPtSizeif not FontExists(theFont,theCurrentPtSize) -- if can't find itthen put theCurrentPtSize & "," after missingend repeatif missing is not empty thenput theFont & SPACE before missingdelete last char of missingput RETURN after missingend ifreturn missingend checkHCFontscript of stack: checkForMissingFonts (modify)on checkForMissingFonts-- System ﾃ‡窶ｦﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡竕･ﾃ‡ﾃ催‡ﾎｩﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡ï｣ｿﾃｭ竕､ﾃ‡笳甘②-- HyperCard ﾃ‡窶ｦﾃｯKﾃｳvﾃ‡ﾂｻﾃ液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃｫﾂｵﾃ‡ﾂ｡ﾃ‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾃ佚‡ﾃ催‡ﾅ津･xﾃｧﾃｪﾃ‡竏妥‡ﾃ暗③-- Requires handler: checkHCFontget checkHCFont("Courier","9,12") & checkHCFont("Geneva","10,14") & ﾂｬcheckHCFont("Palatino","10,12,14,18,24") & ﾂｬcheckHCFont("Helvetica","18,24") & ﾂｬcheckHCFont("Osaka","12") & ﾂｬcheckHCFont("ﾃｧ笳甘ｱﾃｦﾃｭﾂｩﾃｫﾃƒ","9,10,12,14,18,24") & ﾂｬcheckHCFont("ﾃｭﾃ愿唄ﾃ鰻ﾃ叡ﾃ丑ﾃｫﾃƒ","9,10,12,14,18,24") -- these are fonts needed by this stackif it is empty then exit checkForMissingFontselse put it into missingFontsbeep-- this dialog informs the user which fonts are missinganswer "ﾃ ﾂｻﾃ｢竏ｫﾃ‡ﾃε液ﾃ羽ﾃ嘉ｬﾃ曳ﾃ‡邃｢ﾃｯKﾃｳvﾃ‡竕暗‡竏妥③ﾃ韻ﾃ嘉ｬﾃ厩ﾃ曳ﾃ…[ﾃ嘉｣ﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & ﾂｬRETURN & RETURN & missingFontsend checkForMissingFonts-----  Data Scripts:  ----------------------------------------------on getStackVersion-- add in Japanreturn "J1-2.2"end getStackVersionon getStackName-- add in Japanreturn "Lite Home"end getStackName</script>
  17.     <background id="2377" file="background_2377.xml" name="" />
  18.     <card id="2718" file="card_2718.xml" marked="false" name="" owner="2377" />
  19. </stack>
  20.